Private Sub Button1_Click(ByVal sender As   System.Object, ByVal e As System.EventArgs) Handles  Button1.Click
      Dim i As Integer, m, s As Long
      s = 0 : m = 1 : i = 1
      While i <= Val(TextBox1.Text)
          m = m * i                  'n
          s = s + m                  'Ľ׳
          i = i + 1
      End While
Label2.Text = "1!+2!+...+" & TextBox1.Text & "!=" & Str(s) 
                           'Str()sתstring                                            
End Sub





